home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / xdemo.dem < prev    next >
Text File  |  1999-09-16  |  510b  |  27 lines
  1. mode(-1)
  2. getf('SCI/demos/graphics/xdemo-1.dem');
  3. oldln=lines()
  4. lines(0)
  5. deff('[]=demoex(num)',['select num,';
  6.      'case 1 then xdemo1()';
  7.      'case 2 then xdemo2()';
  8.      'case 3 then xdemo3()';
  9.      'case 4 then xdemo4()';'end']);
  10.  
  11. demolist=[
  12. 'Graphics X11 1','xdemo1()';
  13. 'Graphics X11 2','xdemo2()';
  14. 'Graphics X11 3','xdemo3()';
  15. 'Graphics X11 4','xdemo4()']
  16.  
  17. while %t then
  18.   num=x_choose(demolist(:,1),'Choose a demo');
  19.   if num=0 then 
  20.      lines(oldln(1))
  21.      return
  22.   else
  23.      demoex(num)
  24.   end,
  25. end
  26.  
  27.